Help for this page
my $john; while (defined(local $_ = <DATA>)) { if (/^(john\d+)$/) { ... sadfhk34t3wtg sdfhk3gfwghhw3 jacob - 2.0