my $a_ext=quotemeta($a).$ext;