my $character = '°';
while ( my $line = <FILE> ) {
  chomp $line;
  $line =~ s/_/$character/go;
  $line =~ s/${character}UNSC$character/go;
  my @fields = split /$character/, $line;
  # do something
}