История изменений
Исправление soomrack, (текущая версия) :
perl -e '$str=«text»; @arr=(«something», «interesting_text», «boring text», «somewhere»); print map { $_ if $_ =~ «^.*$str»} @arr';
Исходная версия soomrack, :
perl -e '$str=«text»; @arr=(«something», «interesting_text», «boring text», «somewhere»); print map { $_ if $_ =~ «^.*$str»}';