my $a = 'a';
print $a =~ $a; # prints 1