#!/usr/bin/perl -l
$_ = "a";
$_ ++;
print;
$_ == $_;
$_ ++;
print;
__END__
b
1