Select Code to Download

use Path::Tiny qw/ path /;
my $raw   = path( $file )->slurp_raw;
my $re = qr{
...
    my( $id, $tidy ) = ( $1, $2 );
    ...
}