#!/usr/local/bin/perl 
open(INF,"biggie");
@number = <INF>;
close(INF);
$temp="@number";  
@temp2 = split(/\n/, $temp);
foreach $temp3 (@temp2) {
    $nolines = "$nolines$temp3";
}
open(INF,">$biggie");
print INF "$nolines"; 
close(INF);
