Help for this page

Select Code to Download

Select or download this
```
$base = ( split(/\./,$fname) )[0];
```

Select or download this

perl -Mstrict -w -e '
  my $fname = "test.txt";
  my $base  = ( split(/\./,$fname) )[0];
  print "$base\n";'