#!/usr/bin/perl -w use strict; my @match; while(<>){ push (@match,$1) if /'(.*)'/; } [download]
In reply to Re^4: look for a word by tchatzi in thread look for a word by Anonymous Monk