perl -pe "next unless /regex/" *.*