#! /usr/bin/env perl
use strict;
use warnings;
use English qw( -no_match_vars );

print $PERL_VERSION, "\n";

if ($PERL_VERSION > 5.020 ) {
    print "Version OK.\n";
}

while ( my $r = <DATA> ) {
    if ( $r =~ m/{/ .. $r =~ m/}/ ) {
        print $r;
    }
}

__DATA__
nicht gesehen.
{
1
2
3
}
wieder nicht gesehen.