Select Code to Download

(from perl --help)

    -e, -p, -n,-l, -0,-a, -F, -M

    perl -e '$date=localtime(time); print $date;'

    perl -e "$date=localtime(time); print $date;"

    perl -e '$date=localtime(time); print $date,"\n";'

    perl -l -e '$date=localtime(time); print $date;'

    while(<>) { }

    perl -l -n -e 'print $1 if /(\w+ear)/' some.txt

perl -l -n -e 'BEGIN{$sum=0;} $sum=$sum+ $1 if /(\d+)/;print $1; END {
+print "Total: ",$sum}'

    while(<>) { print ; }

    perl -l -p -e 's/Microsoft/Micro\$\$\$oft/g' some.txt

perl -l -n -e 'BEGIN{open (OUT,/path/to/file || die } print  if /^.*\w
+{2,}.*$/gm; END {close (OUT); }'

    split;

    perl -l -a -n -e 'print $F[5]' some.txt

    perl -l -a -F: -n -e 'print $F[0]' /etc/passwd

    perl -012 -e ...

    -00 ( paragraph mode) -0777 (slurp mode)

    -M like use Module; 
     
    -m is like use Module();

    use Wallace(gromit); 

    $saveTheDay=gromit(data);

    $saveTheDay=Wallace::gromit(data);

    perl -l -MNet::Telnet -e'print $Net::Telnet::VERSION'

    perl -MLWP::Simple -e '$content = get("http://www.perlmonks.org/")
+;print $content'