Как проверить буквенно-цифровую строку с подчеркиванием фиксированного формата в Perl

---

Привет Команда,

Я новичок в perl-скрипте и использую регулярное выражение для проверки пользовательского ввода в фиксированном формате.Я должен принять только два формата строки в качестве входных данных.

Формат 1# R99.999 {До любого числа, но оно должно начинаться с R и доходить до некоторых цифр после десятичной дроби}

Формат 2# ABCHD1234_GHI123_XYZ123_R99.999 {любой символ верхнего и нижнего регистра с цифрой и подчеркиванием перед R99.999 будет там всегда}

Все остальное приведет к тому, что сценарий потерпит неудачу.

Что я уже пробовал:

I have written below piece of code but getting error.

#! /usr/bin/perl -w

my $usage = "Usage : $0 <user input is required>

# Validation of user input

if (($dest !~ /^R\d+\.\d/) || ($dest !~ "/^[\w_]+/R\d+\.\d/")){
die "ERROR: $dest is not a valid input";
} esle {
     print " $dest is correct";
}


I got error like-
Search pattern not rterminated at ./MyTest.pl line

Note- if ($dest !` /^R\d+\.\d/)    this works alone to validate input like R99.999 but we need to validate both formats

---