$/=words; my $a = $4-min($4,$1); say $0-$a+min($a+$2,$5)