Przykładowy skrypt napisany w języku Perl, który wyr. regularne : znajduje słowo zaczynające się 3 spółgłoskami

Treść założeń:
wyr. regularne : znajduje słowo zaczynające się 3 spółgłoskami

#!D:/Perl/bin/perl
open(PLIK,"plik.txt");
@linie = ;
foreach $l(@linie)
{
  $l =~ s|\n| |;
  $w .= $l;
}
@t = split(/ /,$w);
foreach $slowo(@t)
{
  if($slowo =~ /^[bcćdfghjklłmnńprsœtwzŸż]{3}/)
  {
    print $slowo,"\n";
  }
}