programming-examples/perl/Statement/Conditional Modifiers and print.pl

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