Select Code to Download

# let's define a sub that will return the matched id IF there was a ma
+tch, undef else
...

my @ids = grep { defined $_ } map { match_id($_) } @lines_from_file;

while ($file_content =~ m{dp/(.\d+?)}g) {  # we have to omit the \z
  print "Found one: $1\n";
}

m{dp/([A-Z]\d{8})}g