Help for this page

Select Code to Download


  1. or download this
    >perl -wMstrict -le
    "my $s = 'x foo1 foo2 x foo3 x yfoo9 foo4 foo5 foo9y x foo6 foo7 x';
    ...
    'x foo1 foo2 x  x yfoo9   foo9y x   x'
    'x foo1 foo2 x foo3 x yfoo9   foo9y x   x'
    'x foo1 foo2 x foo3 x yfoo9 foo4  foo9y x   x'