Conditional Modifiers and print
$_ = "xabcy\n"; print if /abc/; # Could be written: print $_ if $_ =~ /abc/;