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