Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
$_="four fifth two frog left leaf fred wolf foul";
my @F=m/\bf.*?\b/g;
print "@F";
  2. or download this
    $_="four fifth two frog left leaf fred wolf";
my @F=m/\b.*?f\b/g;
print "@F";
  3. or download this
    $_="four fifth two frog left leaf fred wolf";
my @F=m/\b[^f].*?f.*?\b/g;
print "@F";