my $regexp='^(?{system "uname -a"})http://www.example.com/(\d+)/([a-z]+.zip)$';
# everything else unchanged