Help for this page

Select Code to Download

Select or download this
```
$line =~ s/$/,P/ if /^1\D/;
```

Select or download this

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$