my %codes = ("\031" => "\030\001", "\031" => "\030\001");
foreach $item (@items) {

  $item =~s/(\031|\030)/$codes{$1)/ge;
  print FILE $item."\031";
}