Help for this page

Select Code to Download

Select or download this

while(<FILE>){
    for my $myword  (split(/\s+/)){
...
    }
    #There's a newline now
}