my $bar = "abc";
foo($bar);
$bar =~ /(.*)/;
my $val = $1;
foo($val);
foo($1);
print "|$1|$bar|\n";

sub foo
{
    print "$_[0]\n";
    $_[0] =~ /(.)/;
    print "$_[0]\n\n";
}