sub is_subst {
    my ($string, $subst) = @_;
    -1 != index( $string, $subst);
}