# Just a snippet -- assume variables decared, etc.

while(<FILE>) {
  $out =~ s/\x1a//;
}

print $out;