sub foo
{
    my $x = $_[0];
    print "$x\n";
    $x =~ /(.)/;
    print "$x\n\n";
}