Select Code to Download

$VAR1 = {
          'regex' => {
...
                                                        }
                     }
        };

#!/usr/bin/env perl
use strict;
...
{
    print "$path matched regex\n";
}

re: .*/home/members/index.htm.*
/some/fake/path/home/members/index.html matched regex