$: perl -MO=Deparse -e '1 while ($_ = <>) !~ /START TOKEN/'
'???' until ($_ = <ARGV>) =~ /START TOKEN/;
-e syntax OK