Select Code to Download

\d - a digit
\w - a word character
\s - whitespace.

foreach my $line ( @lines ) {

...
  # The '^' anchors the search to the beginning
  # of the string.
}