Подставив часть слов в Perl регулярное выражение

Question

Учитывая это два текста:

$mir1 = 'microRNA-9a'; 
$mir2 = 'microRNA10a'; 
$mir3 = 'microrna3a'; 

Я хочу изменить его на:

miR-9a 
miR-10a 
miR-3a 

В принципе я хотел бы заменить все вариации microRNA часть с miR- Есть ли какое-нибудь одно регулярное выражение?

Я пробовал это, но не уверен, как захватить цифровую часть.

my $mirnew = $mir =~ s/microRNA(\d+)/miR-/gi; 

Answer 1

Вам необходимо записать слова, а не цифры после дефиса. Чтобы backreferecence захватить группу, вы используете $1:

s/microRNA-?(\w+)/miR-$1/gi; 

Answer 2

Вы на самом деле не нужно, чтобы захватить что-нибудь, только случай нечувствительно заменить microRNA и дополнительный - с miR-:

s/microRNA-?/miR-/i; 

Answer 3

s/\bmicrorna.*?([\d]+a)\b/miR-$1/ig