1 2 3 4 5 6 7 8 9 10 11
#! /usr/bin/perl -n BEGIN { $seen_potcdate = 0; } if (not $seen_potcdate and /^"POT-Creation-Date: .*"/) { $seen_potcdate = 1; next; } print;