if ( $line =~ /\w+\s+\Q$inputName\E\s+([\.\d]+)/ ) ...