Select Code to Download

my $basename = ( split /[:\/\\]/, $_ )[-1];