#!/usr/bin/perl

use warnings;
use strict;

for (<DATA>) {
    print /(?:SSL|SSL Certificate|VASCO)/ ? "Match\n" : "No match\n";
}


__DATA__
SSL
SSL Certificate
VASCO
something else