You could try this:

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

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

print $1;
[download]