in reply to regular expression for the address

May I urge you not to publish live data? Thanks. 

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 ,aaaaa
+aa aa ,aaaaaa, ,xxxxxxxx,dd/dd/dd,xx, (195.16),111111
END

say eval [split /,\s*/, $var]->[-2]

[download]

Produces

195.16

Replies are listed 'Best First'.
Re^2: regular expression for the address
by nandymamith (Novice) on Oct 24, 2012 at 10:10 UTC

    Thank You all :) This is not a live data, actually i found in some website so raised this query

[reply]
Re^2: regular expression for the address
by nandymamith (Novice) on Jul 04, 2014 at 10:16 UTC
    OK Fine Thank you..!! :)
[reply]

In Section Seekers of Perl Wisdom