(my $file_name) = $line =~ /
                        \/ #match a front slash "/"
                       [^\/]#dont match any more frontslashes
                       (.*)#match everything after / and save
                        \s-\s#match a " - "
                        /;