I have a single file that is a concatination of a lot of other files. Each single file contains a file end marker (\x1a) and therefore the concat file contains multiple file end markers. Please tell me there is a simple way to loop through the concat file a remove all the file end markers. I tried this ....
#!/usr/bin/perl -w

binmode FILE;
open (FILE, "<concatfile");
open (OUT, ">x.txt");

while(<FILE>){
s/\x1a//;
print OUT;
}
But it stops after the first file end marker. Any ideas?

In reply to File end marker problem by DaveKelly

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":