Select Code to Download

01 fines name 2222 -P sws -1 reee.tee rrt
02 fi si 2232 -P sqww -1 re.wqw ttf

#!/usr/bin/perl
use warnings; 
...
  }
}
  close $fh or die "can't read close '$fp':";

01,fines,name,2222,-P,sws -1 reee.tee rrt
02,fi,si,2232,-P,sqww,-1 re.wqw ttf