Help for this page

Select Code to Download

Select or download this
```
my ($f,$l) = /^(.).*(?<=(.))/s;
```

Select or download this

my $f = substr($_,  0, 1);
my $l = substr($_, -1, 1);