or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"'zot' =~ m{ (zot) }xms;
...
'http://172.20.37.115:8080/se/1.0/pro/subs/198968/' -> '' ($1 is 'zot'
+)
$var is defined
'http://172.20.37.115.8080/se/1.0/pro/123456' -> '123456' ($1 is '1234
+56')