#!/usr/bin/perl -w

print "Please enter the filename of your file: ";
$dnafilename = <STDIN>;
chomp $dnafilename;

unless ( -e $dnafilename) {

	print "File \"$dnafilename\" doesn't seem to exist!!\n";
	exit;
}

unless ( open(DNAFILE, $dnafilename) ) {

	print "Cannot open file \"$dnafilename\"\n\n";
	exit;
}
while ( <DNAFILE> ) {
			
			next if (/fixedStep chrom=chrX start=(.+) step=1/);
		    $counter = $1;
		     
		    }
		     print "$counter\t$_\n";
		    
close DNAFILE;


exit;