Regular Expression Perl

# 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;