$ perl -E 'say "1" =~ !/^\*\*\*INPUT STATEMENT:/i' 1 $ perl -E 'say "-- -----" =~ !/^\*\*\*INPUT STATEMENT:/i' $