my ($filename) = ($pathname =~ m|[/\\:]([^/\\:]+)$|);