http://qs1969.pair.com?node_id=648684


in reply to Re^4: French Accents in perl
in thread French Accents in perl

Voila! Perl with an Outrageous French Accent. 
mon $baguette = <LISEZ>;

BOUCLE: while ('oui') {

  si (($baguette =~ /croustillant/i) et pas ($baguette =~ /éventé/i)) 
+{

    print "J'aime le bon pain français.\n";
  }

  $baguette = <LISEZ>;

  last BOUCLE si $baguette =~ /éventé/i;
}

[download]

In Section Seekers of Perl Wisdom