#!/usr/bin/perl --
use strict; use warnings;
use autodie  2.1001;
use File::Temp qw/ tempfile /;
use File::Copy qw/ move /;
use autodie qw/ move /;
Main( @ARGV );
exit( 0 );
sub Main {
    return Usage() unless @_ ;
    for my $file ( @_) {
        print "Converting $file \n";
        ConvertFile( $file );
    }
}
sub ConvertFile {
    my $infilename = shift;
    my ($outfh, $outfilename) = tempfile();
    open my($infh), '<', $infilename; # autodie dies on error
    while( my $line = <$infh> ){
        chomp $line;
        $line =~ s/sample\_\d\_x?/ID\t/i;
        print $outfh $line, "\n";
    }
    close $infh;
    close $outfh;
    move( $outfilename, $infilename ); #  autodie dies on error
}
sub Usage {
    print <<"__USAGE__";

$0    
$0    modify/this/file 

perl ${\__FILE__}
perl ${\__FILE__}    modify/this/file 


__USAGE__
} ## end sub Usage

__END__