Help for this page
use Getopt::Long; ... $, = $\ = $/; print grep { chomp; not exists $del{$_} } <>;
perl this_script.pl -f A < B > C