Select Code to Download

use strict;
use warnings;
...
    my ($id) = split( /=/, $_)[1];
    print "Id: $id\n";
}

$xyz = "http://mysite/bbsui.jsp?id=dxpwd";
$id = $1 if ($xyz =~ m/\?id=(.+?)$/i);