Help for this page

Select Code to Download

Select or download this
```
my ($label) = /\.([^\.]*)$/;
```

Select or download this

foreach (qw/one one.five two two.one two.ten two.ten.12 three three.ni
+ne)