This will work as long as $variable is not an empty string. I think, in perl6 there will be something like
$variable //= 0;
just for cases like that.

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"