($basename) = $a =~ m#([^/]+)$#;