$line =~/;(.*)\s-\s/; 
my $key = $1; 
 $line =~/\.\\(.*)-\d+\;/; 
my $value = $1;