DB<1> sub altervar { $_[ 0 ] =~ s/a/b/g } DB<2> $var_elsewhere = 'aaa' DB<3> altervar( $var_elsewhere ) DB<4> p $var_elsewhere bbb