#!/usr/bin/perl
use warnings;
use strict;

my $query = shift;

die "usage: $0 query-string\n"
    if not $query;

print "Original query: '$query'\n";

$query =~ s/[^\w\*]//g;
print "Safe query: '$query'\n";

$query =~ s/\*/\\w\*/g;
print "Parsed query: '$query'\n";

while (<DATA>) {
    print "match: $_"
        if /$query/i;
}

__DATA__
invitation
information
Isolation
InFlaTiOn
IATION
In our nation
it requires concentration
at ionizing radiation