Hi Monks
I have a complicated pattern matching cases which doesn't give me the desired results.
I appreciate your input.

#!/usr/local/bin/perl -w
use strict;
my $p1 = qr(^.*?\s\-);
my $p2 = qr(^.*?Special);
my $p3 = qr(^.*?:);
my $p4 = qr(^\'.*?\');
 
 
foreach (<DATA>){
        chomp;
        m[($p1)|($p2)|($p3)|($p4)];
        #print "$_\n";
        print "\t","$+\n";
}
__DATA__
'Inside: Single-Quotes'  -XYZ  the colon after inside
'Also in quotes' and Special Word and -Oops nothing more
These are just plain words and dash -X and some data
[download]

Now When I run this:
It gives me

        'Inside: Single-Quotes'  -
        'Also in quotes' and Special Word and -
        These are just plain Special words and dash -

I would like to have

Inside
Also in quotes
These are just plain

Thanks
Artist