(from perl --help)

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

	while(<>) { }

##</code><code>##

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

##</code><code>##

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

##</code><code>##

	while(<>) { print ; }

##</code><code>##

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

##</code><code>##

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

##</code><code>##

	split;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

	perl -012 -e ...

##</code><code>##

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

##</code><code>##

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

##</code><code>##

	use Wallace(gromit); 

	$saveTheDay=gromit(data);

##</code><code>##

	$saveTheDay=Wallace::gromit(data); 

##</code><code>##

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

##</code><code>##

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