D:\tmp>cat metaphone.pl
use Text::Metaphone;

print $_,' => ', Metaphone($_),"\n" for map {chomp;$_} <DATA>;

__DATA__
Stephen Thrasher
Steve Trasher

D:\tmp>metaphone.pl
Stephen Thrasher => STFN0RXR
Steve Trasher => STFTRXR

D:\tmp>initials.pl
Stephen Thrasher => StTh
Steve Trasher => StTr

D:\tmp>