#!/usr/bin/perl
# ex05_03.plx
use warnings;
use strict;

$_ = '1: proste zdanie (495,a) *ALE* bardzo uyteczne. (3)';

print "Wprowad wyraenie regularne: ";
my $pattern = <STDIN>;
chomp($pattern);

if (my @vars = /$pattern/) {
    print "Znalazem dopasowanie dla '$pattern'.\n";
    foreach (@vars) {
       print "Grupa:  $_\n";
    }
} else {
    print "'$pattern' nie zostao znalezione.\n";
}