... && my ($url)= $line =~ m/\/Archives(.*)/img && ...