#!/usr/bin/perl
# w5.5.pl regex5.pl: greedy:  matches the longest sequence that fits the string
$_ = "barbaar";
s/b.*r/foo/;
print ("$_");

#prints  foo (all of barbaar matched)

