Help for this page

Select Code to Download


  1. or download this
    use strict;

my $string = '|xx-xxx-xxxxx-xxx x/xx|xx-xxxx-xxx-xx-xxxx-xx-xx|';
...
$string = join( '-', @chunks[ 0 .. 3 ] ) . ','
    . join( ',', @chunks[ 4 .. $#chunks ] );
print "$string\n";
  2. or download this
    |xx-xxx-xxxxx-xxx x/xx|xx-xxxx-xxx-xx-xxxx-xx-xx|
xx-xxx-xxxxx-xxx x/xx,xx-xxxx-xxx-xx-xxxx-xx-xx,
xx-xxx-xxxxx-xxx x/xx,xx,xxxx,xxx,xx,xxxx,xx,xx,