www.fromthevalley.com.au

regex remove multiple and replace once

#!/usr/bin/perl


my $v = "melbourne - vic this   is _ nice ";

$v =~ s/(\W|_)+/-/g;

print $v."\n";
HOMEAJAXAPACHEBizphoneCSSDNSGeneralGraphicsHTMLHardwareJavascriptLinuxMACMS SQLMailMicrosoftOFFICE 365PerlPostgresSEOSocial MediaVMwareWindows 10