Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
    print "No Beatle method found on this line: $_\n";
  }
}

while(<STDIN>) {
  chomp;
...
    print "No Beatle method found on this line: $_\n";
  }
}

# Note that this line isn't supposed to compile...
if (m/^static\s+\w+\s+(???@names???)\W.*/) {

static int lars(...);
static bool george(...);
static int thom(...);

No Beatle method found on this line: static int lars(...);
Beatle method "george" found on this line: static bool george(...);
No Beatle method found on this line: static int thom(...);