$string =~ s/([A-Z]{70})/$1<br>/sg;