if ($input =~ m/\x25/)