$_ = "13foo";
if($_ == 13) {
    print "Works\n";
}
__OUTPUT__
Works

##</code><code>##

my ($first, $rest) = split '', $str, 2;

##</code><code>##

$_ = reverse $str;
print chop;