Select Code to Download

foreach $link (@links) {
    if($link =~ /[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]/) {
        system("wget -c \"http://www.celebdaily.com/$link\"");
    }
}

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$