echo "$XXX" | perl -pe '$_=(split "/", (split ";")[0])[-1]'