Help for this page

Select Code to Download

Select or download this

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