$ perl -le 'my $foo = \1; my $bar = $foo; print "same" if $foo eq $bar' same