#/usr/bin/perl -w 

open(FIL, "<file.html");
open(SUC, ">SUCCESS.txt");
@fil=<FIL>;
foreach $str(@fil) {
   if ($str=~m/<a href="\/album\/(\d+)\/"/) {
         push (@URLS,"$1\n");
}}
print SUC @URLS;
 close (FIL);
 close (SUC);