sub reader {
my $stream = "$somefile";
open( FILE, $stream ) or die "Cant open File:$!\n";
    while (<FILE>) {
     if ( $_ =~ m/[\^A\cA\<SOH\>]{1}/g ) {
                          @split= split /[\^A\cA\<SOH\>]+/g, $_;
 

            foreach my $line (@split) {
   foreach my $line (@split) { ( $line =~ s/[\s\n]{1,}//g );  }

}
}


 else {
            my $url = "http:/xxxxx.com/error.html";
            my $t = 0;    # time until redirect activates
            print "<META HTTP-EQUIV=refresh CONTENT=\"$t;URL=$url\">\n";
            last;
        }
}