Why not just
#!/usr/bin/perl package Run::Perl; print "Enter some perl: "; while ($_=<>) { chomp; exit unless $_; eval; print "\nEnter some perl: "; }
tachyon
s&&rsenoyhcatreve&&&s&n\w+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print
In reply to Re: QuickPerl: a step up from -e
by tachyon
in thread QuickPerl: a step up from -e
by John M. Dlugosz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |