Help for this page

Select Code to Download

Select or download this
```
$string =~ s/(..)/$1|/g;
```

Select or download this

my $string;
{
...
    my @pairs = <FOO>;
    $string = join '|',  @pairs;
}