Select Code to Download

E:\Temp>perl -Mstrict -we "my $foo=7;die qq(matched '$&'\n) if '123456
+7rab_.'=~/[${foo}bar]+/"
matched '7rab'