$_=\' test \';
if(m/^\\s(?!\\btest\\b)\\S/){
print "$_\\n";
}
$_=\' test2 \';
if(m/^\\s(?!\\btest\\b).*\\s/){
print "$_\\n";
}
$_=\'ю юю умныйдурак O KAK\';
if(m/ю юю(?!.*дурак).*/){
print "$_\\n";
}
$_=\'ю юю умный О КАК\';
if(m/ю юю(?!.*дурак).*/){
print "$_\\n";
}
тут на задачу нужно смотреть!
Или вас интересовал такой тривиальный вопрос
[^a-zA-z]+
$_=\'word\';
if (/[^a-zA-z]+/){
print $_;
}
$_=\'123456\';
if (/[^a-zA-z]+/){
print $_;
}
Да если вы скажите ююю дурак я даже спорить не буду