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: [email protected] For additional commands, e-mail: [email protected] http://learn.perl.org/
