BEGIN { $sep= '' }
if(  '' eq $sep  &&  1 < @F  ) {
    ( $sep )= /\Q$F[0]\E(.*?)\Q$F[1]\E/;
}