Select Code to Download

# /a\d+b/
while (<DATA>) {
...
a123ca123b
a123ca123
a123ca123c

a123b       match
a           incomplete
...
a123ca123b  match
a123ca123   incomplete
a123ca123c  no match

my $ws = qr/\s+/;

...
      ...
   }
}