http://qs321.pair.com?node_id=618635


in reply to regex help

Hi, Try now,

#!/usr/bin/perl use strict; my $term = "\"foo\"[MH] OR \"bar\"[MH]"; my @matches = $term =~ /(\"(.+)?\"\[MH\])/ ; print $_,"\n" foreach (@matches);

Regards,
Velusamy R.


eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';