Select Code to Download

use strict;
use warnings;
...
    next if ! defined $color;
    print "here is the username: $username\n" if "agag" =~ m/($usernam
+e)/;
}

here is the username: agag