* Subtitle::BASE : strip BOM

lib/Subtitle/BASE.pm

@@ -22,7 +22,7 @@ sub log {
 sub chomp {
   my ($self, $line) = @_;
   return unless defined $line;
-  return $line =~ s/[\r\n]+$//or;
+  return $line =~ s/(^\xEF\xBB\xBF|[\r\n]+$)//ogr;
 }
 
 sub trim {