Select Code to Download

use strict;

...
    print STDOUT "$username\n"; #NEW
    if ("agag" =~ m/($username)/){print STDOUT "here is the username: 
+$username\n"}
}

adad
agag
ahah

here is the username:

use strict;

...
"ADELMAN","John","adad","Ray"
"AGAN","John","agag","Aditya"
"AHMED","John","ahah","Conor"

here is the username: agag