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?