On Jan 4, Birgit Kellner said:
>my $string = "!Rita 1983! and then some text and here is !Künne 1234!
>and !Kußmaul 2001!";
>while ($string =~ /!(\w+)\s(\d{4})!/gi) { print "$1 and $2\n";}
># prints "Rita and 1983"
>while ($string =~ /!(\C+)\s(\d{4})!/gi) { print "$1 and $2\n";}
># prints "Rita 1
use strict;
my $string = "!Rita 1983! and then some text and here is !Künne 1234!
and !Kußmaul 2001!";
while ($string =~ /!(\w+)\s(\d{4})!/gi) { print "$1 and $2\n";}
# prints "Rita and 1983"
while ($string =~ /!(\C+)\s(\d{4})!/gi) { print "$1 and $2\n";}
# prints "Rita 1983! and then some text an
