#!/usr/bin/perl6 my $text='Ave Maria, gratia plena.'; if $text ~~ m/ M...a / {$/.say}
=> <Maria>
#!/usr/bin/perl6 my $text='Ave Maria, gratia plena.'; if $text ~~ m/ (M...a) .+ (p...a) / {$/.say}
=> <Maria, gratia plena> 0 => <Maria> 1 => <plena>
RSS stdin@perl6.su © Alexius Karmanov, 2010-2011