Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
my @chunks = split /\b/, $line;

print Dumper(\@chunks);
  2. or download this
    #need the grep to filter for truth! 
#basically checking if 
#the element is defined/filled-in/not-blank
my @chunks = grep{$_} split /\b|\s/, $line;
  3. or download this
    #either this
my @no_punct = $line =~ /(\w+)/g;
#or this
my @no_punct = grep{$_}split /\W|\s/, $line;