#!/usr/bin/perl -w

use String::Approx qw(amatch);

open(FH, "c:/test.txt")                 # Ouvr