my($no) = unlink $targ || carp "Unable to delete file $targ\n";

##</code><code>##

my $no = unlink $targ or carp "Unable to delete file $targ\n";