~$ perl -MData::Dumper -e 'print Dumper("1" =~ /1/)'
$VAR1 = 1;
~$ perl -MData::Dumper -e 'print Dumper("1" =~ /(1)/)'
$VAR1 = '1';