Help for this page

Select Code to Download

Select or download this
```
#!/usr/bin/perl -Tw
```

Select or download this

if ($string =~ /^([-\@\w.]+)$/) {
  $string = $1;
...
else {
  die "Bad data in $string";
}