Your regex can small like this(be sure the string you need is inside ' ' as you shown us).......but all of them do the same job.....so its your choise.

#!/usr/bin/perl -w

use strict;

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