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