use warnings; use strict; my $line = '3p3V_MON Trip = 2.713V/2.681V'; if ($line =~ m{ 3p3V_MON \s+ Trip \s+ = \s+ ( [\d.]+ ) V/ ( [\d.]+ ) }x) { print "$1 $2\n"; } __END__ 2.713 2.681