Regex puzzler

#! perl 
use strict;
use warnings;
use diagnostics;

my $text = 'A ver~sion, of 5 6  NJH's SD card 'which'
enables the 
PCB itself to be plug'ged (directly) into a
#,standard SD card 
input connector';

$text =~ s/(s+)/zxz/g;
$text =~ s/(W+)/\$1/g;
$text =~ s/(zxz)/ /g;

print $text;




Unsubscribing info is here: h
ttp://help.yahoo.com/help/us/groups/groups-32.html 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://g
roups.yahoo.com/group/perl-beginner/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http
://groups.yahoo.com/group/perl-beginner/join
    (Yahoo! ID required)

<*> To change settings via email:
    mailto:perl-beginner-digest@yahoogroups.com 
    mailto:perl-beginner-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
    perl-beginner-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.c
om/info/terms/