Expression régulière: Comment faire les correspondance approximative

Author:
  #!/usr/bin/perl -w
 
use String::Approx qw(amatch);
 
open(FH, "c:/test.txt")                 # Ouvr