#!/usr/bin/perl

$FILE = $ARGV[0];

open (FH, "<$FILE");
open (FO, ">$FILE.v2");
while (<FH>) {
	$line = $_; chomp($line);
	
	if ($line !~ /track/) { print FO "$line\n"; next; }

	#track name="Asthma_GR_RNASeq" description="trackName" visibility=2 colorByStrand="255,0,255 0,0,0" priority=215
	($name, $desc) = $line =~ /name\=\"(.*)\" description\=\"(.*)\" visibility/;

	$line =~ s/trackName/$name/;

	print FO "$line\n";
}
`mv $FILE.v2 $FILE`;