while (my $line = <STDIN> ) {
   chomp $line;
   ...
}

##</code><code>##

 C:>echo a = 1 |perl -e " print split /=/, <STDIN>"
a  1

##</code><code>##

 C:>echo a = 1 |perl myScript.pl

##</code><code>##

while (my $line = <DATA> ) {

...

__DATA__
a=1 b=2 
c=3