Help for this page

Select Code to Download

Select or download this
```
my @fields = split /\|/, $line;
```
Select or download this
```
my @a = $line =~ /([^\|]+)\|?/g;
```