open (OUT,">format.out"); 

my @array=grep /\d+/,split(/ /,$str);   
my $output = "@array";
write OUT;
close OUT;

format OUT = 
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
$output
.