sub diff
{
    my $_=shift; my $1; my $2;
    ...
}