my $x = 'cbs.d';
my $endung = undef;
if( $x =~ m/\.([^\.]+)$/ ) {
   $endung = $1;
}
print "$endung\n";
# verwende $endung...
my ($endung2) = $x =~ m/\.([^\.]+)$/;
print "$endung2\n";