Perl code - 4 lines

Link:

Perl, pasted on Mar 29:

my $fun = '9';
print $fun ^ '10', "\n";
$fun + 1;
print $fun ^ '10', "\n";

Output:

1
2

0
3