String in Variable bearbeiten

[Beat]

  
my $Thema = "rauchen.txt";  
my ( $Display ) = ( $Thema =~ /([A-Za-z0-9_-]+)\.txt$/ );  
  
$Display ? print $Display : print "funny filename";  

mfg Beat