E:\Temp>perl -Mstrict -we "$_=7;die qq(matched '$&'\n) if '1234567_.'=~/[$_]/"
matched '7'