This code should do it. my $List = "uuuu axyzb oooo cxyzd vvvv";
my @Words = split(' ', $List); print "@Words\n"; my $Word; my @xyz; foreach $Word (@Words) { push @xyz, $Word if $Word =~ /.*xyz.*/; } print "@xyz"; "Kevin Zhang" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > > Thanks in advance for your kind help. > > For the following string: > > "uuuu axyzb oooo cxyzd vvvv" > > What is the command to extract the substrings with "xyz" in them? In this case, I'd like to get two strings "axyzb" and "cxyzd". > > > > > --------------------------------- > Do you Yahoo!? > Yahoo! Mail is new and improved - Check it out! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>