my $foo=shift;
$foo=~s/A.//g;
# to
$_[0]=~s/A.//g;