#!/usr/bin/perl $question = ($toBe || !$toBe); [download]
my $question = qr/^(bb)|([^b]{2})/; my $answer = nobler( $mind ); if ( $answer =~ $question ) { die if defined $2; } sub nobler { my %opinion = %$_[0]; my ($slings_arrows,$sea_of_troubles) = @opinion{ qw/suffer take_up +_arms/ }; return $slings_arrows > $sea_of_troubles ? $slings_arrows : $sea_of_troubles; } [download]
Cheers, Ovid
Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.
www.com | www.net | www.org
No recent polls found