Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl -w

...

print join( '-', split(/[\s,]+/, $x1)), "\n";  
print join( '-', split(/[\s,]+/, $x2)), "\n";
  2. or download this
    aaa-bbb-cc
aa-bb-cc
  3. or download this
    % perl -v

This is perl, v5.8.0 built for i386-freebsd-64int