Select Code to Download

$ENV{REQUEST_URI} = q{/Products/bt-foo.aspx?evil=";system('ls -l');".a
+spx};

my $in = '/Products/bt-(\w+).aspx';