http://www.perlmonks.org?node_id=244812


in reply to Simple regex needed

You could try this:

 

$line = "- - - - - - - - - - - - - - - - - - - - Frame 123 - - -";

$line =~ /^[- ]+Frame +(\d+)[ -]+/;

print $1;

[download]

In Section Seekers of Perl Wisdom