ed_bunker controlla le risposte che dai:

$stato ~= /\+/\0/g;

č sbagliato, giusto č:

$stato =~ s/\+/\0/g;