if (@complete_urls = ($_ =~ /$test_regexp/g)) {
    my @filename = map { s{^.*/}{}; $_ } @complete_urls;
    ...
}