membagi beberapa pembatas menggunakan perl

Saya mencoba untuk mengekstrak hanya nilai hitungan HEAP GRATIS yang 1400 dari baris di bawah ini. Di sini saya menggunakan fungsi split dua kali untuk mendapatkan nilai. Adakah yang bisa membantu saya mendapatkan regex tunggal yang akan mengekstrak nilai 1400 menggunakan fungsi split di sini.

my @split_val = split(',',$line);
print $split_val[2];
my @split_val1= split(':',$split_val[2]); 

String input:

2014-04-23 14:66:87,666 INFO  - HEAP - [USAGE: 1948.3, FREE: 1400, MAX: 3597.5]; NON-HEAP - [USAGE: 611.9, FREE: 52.2, MAX: 1776.0]; CLASSES - [Loaded: 67007, Unloaded: 3237, Left: 63770]; THREADS - [Count: 342]

keluaran:

1400

Mengapa Anda ingin menggunakan split? pertandingan lebih nyaman di sini:

my $str = '2014-04-23 14:66:87,666 INFO  - HEAP - [USAGE: 1948.3, FREE: 1400, MAX: 3597.5]; NON-HEAP - [USAGE: 611.9, FREE: 52.2, MAX: 1776.0]; CLASSES - [Loaded: 67007, Unloaded: 3237, Left: 63770]; THREADS - [Count: 342]';
my ($freeValue) = $str =~ /(?<=FREE: )(\d+(?:\.\d+)?)/;
print $freeValue,"\n";

Keluaran:

1400