Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
$_= "This/is/a/test";
s<(\w+)/><substr( $_, 0, pos $_). "$1\n">ge;
print $_,$/;

Select or download this
```
This
This/is
...
is
a
test
```