#!/usr/bin/perl -w

while (<DATA>) {
        $str = $_;
        chomp $str;
        print "str=$str\n";
}

__DATA__
e-2 ddfgdgdf
e-3
e-4 dfgrty5r6y56
e-5
e-6
e-8