use vars '$ret';
sub regex {
    local $ret = '';