while(<IN>)
$line = new Format($_);
$line->extractCompanyStuff;
$line->convertCompanyStuff;
$line->placeCompanyStuff_inDestinationFormat
$line->printToDestination
}