#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my $text = '"F059"3,"Invalid Recipient postal code format for specified country."99,""';
my @text = split /"/, $text;
print Dumper(\@text);
print $text[3];