$string = "bcde";
$string =~ s/^(.+)$/a$1/;