#!usr/bin/perl
$file;
@files;
$filename;

$filename = <STDIN>;
open(FILENAME, "<$filename") or die "can't open file";

while($file = <FILENAME>){
	
	chomp $file;
	$file =~ s/sample\_\d\_x?/ID\t/;
	
	print $file, "\n";
	
}