use strict;
use warnings;

while (<DATA>) {

  # works just like a file
  my $line = $_;

  # removes line feed
  chomp($line);

  # ..... add your code here

  print "LINE: $line\n";

}

__DATA__
Line 1
Line 2
Line 3
Line 4