perl -slne '/TABLE/ && print "$ARGV:$_:$type"' -- -type=$type $file_name