Select Code to Download

NOTE: Failed matches in Perl do not reset the match variables, which m
+akes it easier to write code that tests for a series of more specific
+ cases and remembers the best match.

#!/usr/bin/perl
use strict;
...
print "Feeling: $1\n";

__END__

[22:08][nick:~/monks]$ perl 1139246.pl
Day: beautiful
Feeling: beautiful
[22:08][nick:~/monks]$

#!/usr/bin/perl
use strict;
...
}

__END__

[22:13][nick:~/monks]$ perl 1139246.pl
Day: beautiful
No match for feeling
[22:13][nick:~/monks]$