ll | perl  -ne 'print if (split /\s+/)[6]>= 19;'

ll | perl -ne 'print if ${ [split /\s+/] }[6]> date;'

ll | perl -MO=Deparse -ne 'print if ${[split /\s+/]}[6]>= 19;'

perl -e 'print STDERR "\e[34mHello Jason\e[0m\n"'

\e[34m...\e[0m之间的字符串为蓝色。

ls -lAF | perl -ne 'BEGIN{$sum=0} next if /^d/; $sum += (split)[4]; END{ print "$sum\n" }'

  perl -e  'while(@ARGV){$file = shift @ARGV; open hand,"<".$file; next if (!defined hand);while(<hand>){if(m<JASON>){print $file."\n";close(hand);last;}}}' ` tree -afpdictory | perl -ne 'next unless(m/\[-/);print $_'`

perl -e  'while(@ARGV){$file = shift @ARGV; next unless -f $file;open hand,"<".$file;while(<hand>){if(m<These\scomputer\sresources>){print $file."\n";close(hand);last;}}}' `tree -afp /etc | perl -ne 'next unless(m/\[-/);@arr=split;print $arr[-1],"\n";'`