Select Code to Download

#!/usr/bin/perl -w
use strict;
while ( <> ) {
...
    }
    return 1;
}

#!/usr/bin/perl -w
use strict;
while ( <> ) {
...
    $x =~ tr/0-9//s;
    length $x == 10 ? return 1 : return 0;
}