Language Basics Perl

$_ = "a needle in a haystack";
print if /needle/;