Help for this page
@lines = grep { /^SNR:/ } @lines;
for my $line (@lines) { my ($SNR, $val1, $val2, @rest) = split /\s+/,$line; print "SNR value 1:$val1, value 2:$val2\n"; }