Re: New to perl and regex

[Utilitarian]

Neatened up your regular expressions a bit:

print "Enter a string (enter quit or [CTRL]-D to quit): ";
while(<>)
{
    $line = $_;
 last if ($_ =~ /^\s*quit\s*$/i);
    next if ($_ =~ /^\s~*$/);
    if($line =~ /\s*[a-zA-Z\s]+\s*-?\d+\s*/)
    {
    print $_;
    }
}

[rovf]

I think it can be made even simpler than that:

/[A-Za-z\s]+\s-?\d\d?/