while (my $line = <DATA> ) {

...

__DATA__
a=1 b=2 
c=3