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