if ($input =~ m/^([-+]?[0-9]+(\.[0-9]*)?)\s*([CF])$/i) { $type = $3; # save to a named variable to make rest of program more readable if ($type eq "C") { # `eq' tests if two strings are equal } else { ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl