use strict;
use warnings;

my $path='/home/backup/';

opendir(my $dh, $path) or die("Can't open dir $path");
while( my $file=readdir($dh) )
{
  my $file_path=File::Spec->join($path,$file);
  next unless -f $file_path;
  print "$1\n" if($file=~/([^.]+)$/);
}
closedir($dh);

use strict;
use warnings;

my $path='/home/backup/';

opendir(my $dh, $path) or die("Can't open dir $path");
while( my $file=readdir($dh) )
{
  my $file_path=File::Spec->join($path,$file);
  next unless -f $file_path;
  my $ending=(split(/\./,$file))[-1];
  print "$ending\n";
}
closedir($dh);