Как заменить некоторые шаблоны в строке файла пробелами в perl?

Question

У меня есть файл с некоторым содержанием, скажем, нажмите y = 'Принять', нажмите y = 'эй, есть'

мне нужно очистить все эти шаблоны с помощью y = 'кое-что'?Как это сделать с помощью perl?

В прошлом я пробовал как

foreach(@lines) {
     $_ =~ s/y='*/ /g;
    }

, но это только замена одного символа после шаблона

I 'я не уверен насчет следующего шаблона или длины следующего шаблона, но нужно заменить каждую вещь после шаблона 'y =?если у = не в начале строки

Answer 1

Это то, что я пробовал и работает для меня

#!/usr/bin/perl

my $str = "press y ='Accept' press y ='hey there'";
$str =~s/y ='.*?'/ /g;
print $str;

То, что это делает, соответствует из "y = '" в первую одинарную кавычку после этого, то есть это не жадное регулярное выражение.