$string =~ s/^/a/;