# ASCII specific
print"SQQS"^"aaaa"
#23456789012345678
#        1

##</code><code>##

print+SQQS^aaaa
#23456789012345
#        1

##</code><code>##

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


##</code><code>##


print kill($$-$$,@$_) for [$$,$$], [], [], [$$,$$];

# or 

use Fcntl qw(:seek);

print SEEK_END, SEEK_SET, SEEK_SET, SEEK_END;

# or

$_ = "weirdness";

print y ueuu, y fuff, y sfss, y esee;