my ($a,$b,$value_a,$value_b); while (1) { $a = ; $b = ; if ($a =~ m/(.*?)/) { $value_a = $1; } if ($b =~ m/(.*?)/) { $value_b = $1; } last if !defined $value_a || !defined $value_b; print data_transform($value_a, $value_b); }