Select Code to Download

#!/usr/bin/env perl -T
use strict;
...
    my $url = shift;
    $ua->get($url);
    warn;

#!/usr/bin/env perl -T
use strict;
...
    my $so = join "\n", $ua->content =~/(so\.addVariable\(\s*'.+?'\s*,
+\s*'.+?'\s*\)\s*;)/mg;
    while($so =~/so\.addVariable\('([^']+)','([^']+)'\);/mg) { }
}