$record = 'A;B;C;D';

##</code><code>##

$second_field = (split ';', $record)[1];

##</code><code>##

A;B
#foo;B;ar
;B

##</code><code>##

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