Just to change the theme a little (for those who, like me, don't know TMBG :) ). 
$?='astounding';
$fleeting=time();
$madness=$madness-$toll*$?;
listen(CLOSELY,$but);
while (! $very_much_longer) {
    $i="keep_control";
}
$i="remember";do {time_warp()};
$drinking=(localtime())[1]&&$me->hit("#000000") && $void->me();

time_warp();
time_warp();
sub time_warp {
    $?=jump('left')&&step('right');
    $hands->hips&&knees('in tight');
    do {pelvic_thrust} unless $still_sane;
}
time_warp();

$?='so dreamy';
undef $me if $fantasy;
if ($me) {
print "$me\n";
} else {
print "no not at all\n";
}
system "another_dimension.tcl | voyeuristic_interntions.sh";
secret $me;
reverse($mind)->time_slip;
undef $same;
$me->sensation||$me->sedation;
time_warp();
time_warp();

#It's astounding,
#time is fleeting
#madness takes it's toll
#but listen closely
#not for very much longer
#I've got to keep control
#I remember doing the time warp
#drinking, those moments when
#the blackness would hit me
#and the void would be calling
#let's do the time warp again
#let's do the time warp again

#It's just a jump to the left
#and a step to the right
#with your hands on your hips,
#you bring your knees in tight,
#but it's the pelvic thrust that really drives you insane
#Let's do the time warp again!

#It's so dreamy
#oh fantasy free me, so you cant see me
#no, not at all
#In another dimension, with voyeuristic intentions
#well secluded, I see all
#with a bit of a mind flip, you're into the time slip
#and nothing can ever be the same
#You're spaced out on sensation, like you're under sedation
#let's do the time warp again
#let's do the time warp again

[download]
Update: Changed title.
game(Wookie,opponent) eq 'Wookie' ? undef $problem : remove_limbs(arms,opponent);

In reply to From TMBG to RHPS (Time Warp) by Wookie

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.