Select Code to Download

my( $name, $ext );
{
...
  $ext = pop @chunks;
  $name = join '.', @chunks;
}

my( $ext, $name )=(@_=split/\./, $filename and pop @_, join '.', @_);