$ perl 1217240.pl 
Search pattern not terminated at 1217240.pl line 29.