open my $input "./TVT.exe Tes...._235516.pdf|"; open my $output "test.txt" foreach (<$output>) { print $output,$_; }