On 04/06/2010 12:55, Chaitanya Yanamadala wrote:
<ComposedBlock ID="ZONE1-2" STYLEREFS="PAR1" HEIGHT="1062" WIDTH="1986" HPOS="573" VPOS="3003">
use strict; use warnings;my $string = '<ComposedBlock ID="ZONE1-2" STYLEREFS="PAR1" HEIGHT="1062" WIDTH="1986" HPOS="573" VPOS="3003">';
my ($id) = $string =~ /ID="(.*?)"/; print $id; __END__ HTH, Rob -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/