in reply to trying to convert from awk to perl

perl -ne 'print if /^F/' /tmp/frhtest/ADDC.bak > /tmp/frhtest/ADDC.$da
+te

[download]

In Section Seekers of Perl Wisdom