Regular Expression Perl

# The s modifier can be used with both the m (match) and the s (substitution) operators.
# The s modifier and the newline
$_="this is a test\nAnother test.\n";
print $& if /is./s;
print $& if /a\../s;
print if s/testA/test, a/s;