Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    next unless $_ =~ /\w+/;
    print $_, "\n";
}

C:\Code>perl split_num.pl
0
...
1
1
0