Select Code to Download

$ perl -cw 1152653.pl
Global symbol "$in" requires explicit package name at 1152653.pl line 
+9.
...
Missing right curly or square bracket at 1152653.pl line 14, at end of
+ line
syntax error at 1152653.pl line 14, at EOF
1152653.pl had compilation errors.

use strict;
use warnings;
...
    print $file;
}
close $in;

$ cat 1.txt
foo
...
foo
?!?acshdska
bar