if($record =~ m/^.;(.);.;.$/) { $second_field = $1; }