http://www.perlmonks.org?node_id=358582

s#(<img[^>]+src\s*=\s*(?:"|'))/img#$1/foo#s

Perl6 sample code...

Simple stab:

#!/home/clive/rakudo-star/bin/perl6 my $number = 100.rand.ceiling; say "I'm thinking of a number between 1 and 100 inclusive. What is it? +"; for ^7 { my $guess = +prompt("Enter your guess:"); given $guess { when ! *.isa(Int) { say "Hey, that's not an integer!" } when * > $number { say "Too high!" } when * < $number { say "Too low!" } default { say "You got it!!!"; exit } } } say "Really? I was thinking of $number";

Class version (note, unfinished - allows infinite guesses)

#!/home/clive/rakudo-star/bin/perl6 class GuessNumGame { has $number = 100.rand.ceiling; has $guess-count = 0; has $.running is rw = True; method guess ($guess) { given $guess { when ! *.isa(Int) { say "Hey, that's not an integer!" } when * > $number { say "Too high!" } when * < $number { say "Too low!" } default { say "You got it!!!"; $.running=False } } } } my $game = GuessNumGame.new; say "I'm thinking of a number between 1 and 100 inclusive. What is it? +"; while $game.running { $game.guess( +prompt("Enter your guess:") ); }