use feature ":5.14"; use warnings FATAL => qw(all); use strict; my $var = << 'END'; 11,2222222,"xxxxxx'x xxxxxxx, xxxxxxxxx",sssss (aaa 111) 1111-a ,aaaaaaa aa ,aaaaaa, ,xxxxxxxx,dd/dd/dd,xx, (195.16),111111 END say eval [split /,\s*/, $var]->[-2]