$ perl hears1.pl
enter basename for file
rt7
int is 1
six was Y
int is 1
six was G
int is 1
six was a
schmint is 
schmint is 1
schmint is 1
returned was 
 Amber BU 0. J

Kim BSU was harmed by B F K

Kim Wshington was harmed by A I J