in reply to Re: japhy's regex article for the TPJ
in thread japhy's regex article for the TPJ

Our own chromatic has written Regexp::English, which allows you to construct a regex with methods: 
use Regexp::English;

my $re = Regexp::English
  -> start_of_line
  -> literal('Flippers')
  -> literal(':')
  -> optional
    -> whitespace_char
  -> end
  -> remember
    -> multiple
      -> digit;

while (<INPUT>) {
  if (my $match = $re->match($_)) {
    print "$match\n";
  }
}

[download]
_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

In Section Seekers of Perl Wisdom