Select Code to Download

#!/usr/bin/perl
use warnings;
...
  # put some print statements here to make sure that
  # you can actually get the 5 individual things
}

my ($nameOfNumberfield1, $nameOfNumberfield1, $nameofTextField,
$nameofTextfield) =split ',',$line;