in reply to trying to convert from awk to perl
awk '$1 ~ /^F/ { print $0 }' /tmp/frhtest/ADDC.bak > /tmp/frhtes +t/ADDC.$date perl -ane 'print if $F[0] =~ /^F/' /tmp/frhtest/ADDC.bak > /tmp/frhtes +t/ADDC.$date [download]