while(defined($_ = <STDIN>)) {
    next unless $_ =~ /^something/;
    # ...
}