use strict;
use warnings;

my @texte = qw(
  {muster}
  {kein_muster
);

for my $text ( @texte ) { 
  $text =~ s/\A{(.*)}\z/$1/;
  print $text, $/;
}