Select Code to Download

m[
    ([^/]+) / # capture the phone number before the slash
...
    (\S+) #capture the building code.
    $
]x;

perl -nle" exit if $. == 15; print unpack 'H*', $_" testdata.txt