String Perl

  1. Home
  2. Perl
  3. String
  4. Split words
#!/usr/bin/perl
use warnings;
use strict;
my @words;
push @words, split foreach(<>);
print scalar(@words), " words: @words \n";