my $line = 'abbc'; $line =~ s/(.)/$1$1/g; say $line; --output:-- aabbbbcc