while (<DATA>) { my @split=split/;/; foreach (@split) { if (/\bHERE IS THE DATA PLACED (\w+)/) { s/\bHERE IS THE DATA PLACED//; print $_; #print "Matched\n"; }else{ next; } } } __DATA__ HERE IS THE DATA PLACED ABC; DO NOT ENTER PLACED BCD; HERE IS THE DATA + PLACED ABC; WHO ARE U PLACED ABC ; __OUTPUT__ ABC ABC
Neil
In reply to Re^4: how to extract certain lines
by neilh
in thread how to extract certain lines
by dee00zee
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |