use strict;
use warnings;

my @test = qw(no_proc line_to_proc1 line_to_proc2);
for (@test) {
    print $_ . "\n" && next if /no_proc/; #no processing
    print "$_ : in proc \n";              #processing
}

##</code><code>##

    print ($_ . "\n") && next if /no_proc/;

##</code><code>##

print (...) interpreted as function at ...

##</code><code>##

    if (/no_proc/){
        print $_ . "\n";
        next;
    }