perl -e '$a="/bla/bla/123;yarg"; print +(split "/", (split ";", $a)[0])[-1]'
123