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

##</code><code>##

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