while ( chomp( my $line = <FILE>) ) { print SCRIPT "$line\n"; }