perl -ple" exit if $. == 20" file