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