P:\test>p1
perl> use String::Approx qw[ adist ];;
perl> @inputs = qw(donor_dedupe_source indicted_video_source source1);;
perl> print "$_ : ", adist( pack( 'A'.length, 'source' ), $_ ) for @inputs;;
donor_dedupe_source :  13
indicted_video_source :  15
source1 :  1
perl> Terminating on signal SIGINT(2)

P:\test>p1
perl> use String::Approx qw[ adistr ];;
perl> @inputs = qw(donor_dedupe_source indicted_video_source source1);;
perl> print "$_ : ", adistr( pack( 'A'.length, 'source' ), $_ ) for @inputs;;
donor_dedupe_source :  13
indicted_video_source :  15
source1 :  1
perl> print String::Approx::VERSION;;
print() on unopened filehandle VERSION at (eval 6) line 1, <STDIN> line 4.
perl> print $String::Approx::VERSION;;
3.19