# Anchors and the m modifier
$_="\nTomorrow will never be here.\n";
print if /^Tomorrow/; # Embedded newline
$_="\nTomorrow will never be here.\n";
print if /\ATomorrow/; # Embedded newline
$_="\nTomorrow will never be here.\n";
print if /^Tomorrow/m;
$_="\nTomorrow will never be here.\n";
print if /\ATomorrow/m;
$_="\nTomorrow will never be here.\n";
print if /history\.$/m;
|