use LWP::Simple;

print get("http://perlmonks.org/?node=TMTOWTDI+the+new+year!")
                                    =~ /printing "(\d+)"/;

# or

print y/a// for qw(aa bb bb aa);

# or