Patterns I

$fred = "alpha!beta!gamma"; $fred =~ s/^.*!//; print "$fred\n";
$fred = "alpha!beta!gamma"; $fred =~ s/^[^!]*!//; print "$fred\n";
$fred = "alpha!beta!gamma"; $fred =~ s/^[^!]*!$//; print "$fred\n";
$fred = "/this/that/../../smog/drip/../drop"; $fred =~ s|[^/]+/\.\./||g; print "$fred\n";
$fred = "North South East West"; $fred =~ s/..[^r]../xxxxx/; print "$fred\n";

Patterns I
	Practice Problems