Help for this page

Select Code to Download

Select or download this
```
print ((split /\&/, $string)[0]);
```

Select or download this

if (scalar(grep/HRC/, $att) > 0) { $var = 1; }
elsif (scalar(grep/LRC/, $att) > 0) { $var = 2; }
else { $var = 0; }