�������� =~ � !=.

������:

$var =~ /w+/

��������� ��������� ��������� � ���������� ���� $�����, ���� ������� ��� � ��� ���������� ��������� ��������� ���������� ��� ������ � ������� �������. � �������, ����� �������� ����� ���������:

$var = "Hello world!!!!";
$var =~ /Hello (\w+)/;
printf "���������: $1\n";

 ���������: world

������:

$_ = "Hello world!!!!";
/Hello (\w+)/;
printf "���������: $1\n";

�������� ������

���������:

   m/������/��������

���� �� ����� �������� �� ���������� ��������, ��� �������� ����� �� ������������, ����� ����� �� ������������ m, � ������ ��������� ������ ����� ��������� ���������� (�������). ��� ��� ���� ������� ����, ��������� ������ ��������� � ���������� ���� $�����.

������:

$var = "Hello world!!!!";
$var =~ /(\w+)(\w+)/;
printf "���������: $1 $2\n";

  ���������: Hello world

if ( $var =~ /+w/ )
{  print "�������!!!\n"; }
else
{ print "�������!!!\n"; }

�������

������ �� ��� �� ��������, ���� �� �� ����������� - ������� ������������ ������ ������ ��������. ������� ��������� �����������.

\	�������� �������� ���������� �� ��� ����������� � ������� ��� ��� ������� ������
()	�����������.
.	���� ������������ ������. ����� '\n' - ����� ������.
$	����� ������
|	������������
^	������ ������
[]	��������� ��������.

���������� ��� �������, ���������� '()' - ����� ����������, ��� ��� ������, ��������� ��������� ����� ����������� ������ � ������� �������.

/Hello (\w+)/;

������� ��������� ������������:

*	����������� 0 ��� ������� ����� ���
+	-//- 1 ��� ������� ����� ���
?	1 ��� 0 ���
{n}	����� n ���
{n,m}	�� ������ n, �� � �� ������ m

��� ����� ��������, ��� ��� ��������� '\w+', ����� ���������� � ����� ������ ����� (���������� ��������� �������� � ���� �����), �� ����, ������� ����������� ������� ����������� ������������� �������.

��� ������� ������� ���������� ��� ��������� �������������� ������������:

\w	���������-�������� ��� '_' ������
\W	�� -//-
\s	���� ������
\S	���� �� ������
\D	���� �� �����
\d	���� �����
\b	������� �����
\B	�� ������� �����
\A	������ ������
\Z	����� ������ ������
\G	����� �������� m//g

�������� ������

  s/������/�����������/��������

$var =~ s/������/hello/;

var =~ s/������ \w+/hello/;

� ������ �������� ��������� ���������� �������� ������������ ���������� �����, � ���� ������ ����� �� ������� ����� false ��� 0.

�������� ������ tr.

  tr/�������1/ �������2/���������

����� ��������� ���������:

c	���������� '�������1', �� ���� ���������� �� �������, ������� �� ����� � '�������1', ������� ������ �� �������� NOT
d	C������ ���������, �� �� ���������� �������
s	"�����" ������������� ���������� �������, �� ���� ���� ����� ������ � ������ ���� ��������� ���������� ��������, �� ��� ��������� � ����.

������:

  $ var = "Hello All";
  $ var =~ tr/l/L/;
  print "$var\n";

  HeLLo ALL.