sub hoge_r {
}
sub hoge {
hoge_r(\$s);
}
my $a = "abc";
my $b = $a;
hoge($a);
hoge_r(\$a);
c3ViIGhvZ2VfciB7CiAgICBteSAkcyA9IHNoaWZ0OwogICAgc3Vic3RyKCQkcywgMSwgMSkgPSAiMSI7Cn0KCnN1YiBob2dlIHsKICAgIG15ICRzID0gc2hpZnQ7CiAgICBob2dlX3IoXCRzKTsKfQoKbXkgJGEgPSAiYWJjIjsKbXkgJGIgPSAkYTsKaG9nZSgkYSk7CnByaW50ICRhLiJcbiI7Cgpob2dlX3IoXCRhKTsKcHJpbnQgJGEuIlxuIjsKcHJpbnQgJGIuIlxuIjsK