use warnings; use strict; use autodie; open my $in,'<', "in.txt"; open my $out,'>', "out.txt";