# if any non-english language chara in the line
if ( $line =~ /[[:non-english_chara_class:]]/g ) {
    print "Keep the content as is";
}
elsif ( $line =~ /[[:garbage_chara_class:]]/g ) {
    # do some filtering
}