DUMPZ
Paste dump
Recent dumps
FilesBox.io
About
Log in
Sign Up
if str ig print
tek
Perl
16 Jul 2008
As Text
Un/Wrap
Lines#
1
2
3
if
(
$str
=~
m/^[S|Q]\w+[e|y]\(\$_\w{3,4}\)/ig
){
print
$&
.
"\n"
;
}
← newer dump
older dump →