if ($sub_routine =~ /check_char/} {
    check_char ($value1, $value2);
}