Ezt a feladatot hogyan kell megoldani?

Gondolva a 'vicces kedvű' felhasználókra is kiszűrjük az egymást követő kacsacsőröket:

program Project1;

var benne : Boolean = False;

s : String;

i : Integer = 1;

begin

s := '<Gabor>> és Denes <<<<fel>>>>masztak <a diofa>ra.';

while i < Length(s) do

begin

if s[i] = '<' then benne := True;

if (s[i] = '>') and benne then

begin

benne := False;

WriteLn;

end;

if benne and (s[i] <> '<') then Write(s[i]);

Inc(i);

end;

ReadLn;

end.

Miért pont erre ne lenne egy szuper perl one-liner:

echo "<Gabor> és Denes <fel>masztak <a diofa>ra." | perl -lane 'while ($_ =~ /\<(.+?)\>/g){print $1} '

Ha az előző válaszolót követve fel akarunk készülni több kacsacsőrre esetleg:

echo "<Gabor> és Denes <fel>masztak <<<a diofa>>ra." | perl -lane 'while ($_ =~ /\<+(.+?)\>+/g){print $1} '