Here's what I have but it's not working: 
if ($line =~ m/\b-|b(^[A-Z][a-z]+\s[A-Z][a-z]+$+?!0-9)\|b/) {print "$l
+ine";}

[download]

It helps if you go through the elements of the regexp telling in plain words what it is trying to match, or writing it as an extended regexp and comment it: 

if ( $line =~ m/  # match
    \b-           # a word boundary followed by a -
    |             # or
    (             # (beginning of capture)
    b             # the letter "b"
    ^[A-Z]        # a capital letter anchored at start of string
                  # ...wait, what? at the beginning?

[download]

I just stop here. Matching a literal b and then something anchored at start of string never succeeds. All wrong. Start over. What are you trying to match?

This regexp looks like some working one which has been tinkered with, without having read perlre trying to understand as much as possible of it. Do that now.

Post the original regex, samples and expected output.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

In reply to Re: regex to return line with name but not if it has a number by shmem
in thread regex to return line with name but not if it has a number by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.