#!/usr/bin/perl -w

my $pattern = <STDIN>;

open (FILE, "< filename");

while (<FILE>) {
    if (/$username/) {
        print "$_ \n";
    }
}