#!/usr/bin/perl -w

use strict;

my @match;
while(<>){
   push (@match,$1) if /'(.*)'/; 
}