Help for this page

Select Code to Download

Select or download this

my ($name, $ext) = $_ =~ m!\A(.*)\.([^.]+)\z!s;

Select or download this
```
my ($name) = $_ =~ m!\A(.*)\z!s;
```

Select or download this

 ($name, $ext) = $_ =~ m!\A(.*)\.([^.]+)\z!s;