$_ =~ s/C/Clubs/,s/S/Spades/, s/H/Hearts/,s/D/Diamonds/; [download]
In reply to Re: Perl subroutine by Anonymous Monk in thread Perl subroutine update by craziestfire73