#!/usr/bin/perl

use strict;
use warnings;

while (<>) {
   chomp;
   ...;
   print ...;
}

##</code><code>##

perl script.pl infile > outfile