#!/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]; #### $VAR1 = [ '', 'F059', '3,', 'Invalid Recipient postal code format for specified country.', '99,' ]; Invalid Recipient postal code format for specified country.