Исправление AITap, 25.06.13 18:45 (текущая версия) :
А другие примеры строк можно? А то самый простой вариант получается
my $match = "1000BaseLX SFP" =~ /(Base)/;
Исходная версия AITap, 25.06.13 18:44:
my $a = "1000BaseLX SFP" =~ /(Base)/;