for local $_ ()
{
  #code
}


##</code><code>##

#!/usr/bin/perl -w
use strict;

sub x {print @_}
$_=["ah!\n","er?\n"];
for (@$_) {
        x "+$_";
        for (split//, $_) {
                x "-$_";
        }
}