Select Code to Download

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

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

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