System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. Soundex function
#!/usr/bin/perl
use warnings;
use strict;
use Text::Soundex;
while (<>) {
    chomp;   #remove trailing linefeed
    s/\W/ /g;   #zap punctuation, e.g. '.', '@'
    print "'$_' => '@{[soundex(split)]}'\n";
}