Dec 22, 2008, 6:26 AM
Post #2 of 2
Why would you want to embed either of those into a Perl script?
Re: [subhotech1] SED/ AWK in Perl or any other regular expression
[In reply to]
The perl language was built around the combination of awk, sed, grep and a number of other standard unix utilities.
Here's your awk solution converted to perl.
my $str = "<b> _ABC (Apply Changes) (p) </b> _EFG | HIJ | KLM | WER";
print join("\t", (split(/ /, $str))[1,6,8,10,12]);