my $string = 'nameAATTCC0'; $string =~ s/([ATC0])/$1 /g; print $string;