Help for this page
#! /usr/bin/perl -w ... print join( '-', split(/[\s,]+/, $x1)), "\n"; print join( '-', split(/[\s,]+/, $x2)), "\n";
aaa-bbb-cc aa-bb-cc
% perl -v This is perl, v5.8.0 built for i386-freebsd-64int
www.com | www.net | www.org
No recent polls found