It fails to find the first regex match. Seems like the quotes in the javascript is killing the match. Any suggestions?
Convert this to valid perl

if (javascript:SubmitFormPost\(\"(.*)\"\)/)
mech1->get($1);
}
else
{
# no new page 
}
[download]