Help for this page

Select Code to Download

Select or download this
```
return $str =~ m/\@([^.]+)/ ? $1 : '';
```

Select or download this

sub name {
    return $1 if $_[0] =~ /@([^.*])\./;
}