my $searchfield = ( split /'/, $line, 3 )[1];

##</code><code>##

my ($searchfield) = $line =~ /^'([^']*)/;

##</code><code>##

$c = ($f1,$f2) = (4,5,6);