(my $file_name) = $line =~ /;\/[^\/](.*)\s-\s/;