Help for this page
#!/tool/bin/perl -w use strict; ... close(TEST_FILE); printf("matched $match\n");
/foo/bar/baz/bat
if ($_ =~ /\/(.+)?$/)