Help for this page

Select Code to Download


  1. or download this
    $file = reverse $file;
$file =~ s/_/,/;
$file = reverse $file;
  2. or download this
    $file =~ s/_([^_]*)/,$1/;
my $rest = $1;