2 ms·perl -e 'print "yep, is porn\n" if $filename =~ /(.avi|.mp4|.wmv)$/;by guitarbill 9y agoperl -e 'print "yep, is porn\n" if $filename =~ /(.avi|.mp4|.wmv)$/;