Help for this page

Select Code to Download


  1. or download this
    my $n = 'foo.bar.txt';
$n = substr $n, 0, rindex( $n, q{.} );