#!/usr/bin/perl -w
use strict;
use lib '.';
use Regexp::Approx 'fuzzy_qr';
use re 'eval';

while(<DATA>) {
    chomp;
    print "Using '$_' as fuzzy component:\n";
    my $fuzzy_part = fuzzy_qr( $_ );
    my $rx = qr/($fuzzy_part)/;
    if ( "5678 DELAWARE AVENUE AOT 123" =~ /$rx/ ) {
        print "\tRX Match: $1\n";
    }
}
__END__
APT
A
XXX
^%@#!(
fuzzy matches anything?
x


#### output:
Using 'APT' as fuzzy component:
        RX Match:  AO
Using 'A' as fuzzy component:
        RX Match: 5
Using 'XXX' as fuzzy component:
amatch: $_ is undefined: what are you matching?
Compilation failed in require at xxx.pl line 4, <GEN0> line 51.
BEGIN failed--compilation aborted at xxx.pl line 4, <GEN0> line 51.
Using '^%@#!(' as fuzzy component:
Broken pipe

### platform:
$ perl -v

This is perl, v5.8.0 built for i686-linux