my ($user, $lib) = qw(/home/john /lib);
sub directs {
    my $count;
    for my $dir (@_) {
        $count += unlink map {glob "$dir/$_"} qw(*~ core.*);
    }
    $count;
}

print directs( $user, $lib), ' files deleted.', $/;

##</code><code>##

{
    local $/ = '<br />';
    foo(@args);
}