Help for this page
/path/to/one/library /path/to/another /path/to/another/01 ... /path/to/another/03 /path/to/another/1e /path/to/another/2014
($b) = $line =~ m#([^/]+)$#; ($c) = $line =~ m#(\d+)$#; if ($b eq $c){print "Match \n";}