Perl: replace in file

perl_replacer.pl

# change plugin in wordpress Auto SyntaxHighlighter -> Enlighter - Customizable Syntax Highlighter
# dump site database to mybash-2017-30-09.sql
# write script to replace 
      <pre class=\"brush:php\">
      <pre class=\"EnlighterJSRAW\" data-enlighter-language=\"php\">


#!/usr/bin/perl

use warnings;
use strict;
use feature 'say';

my $file = './public_html/mybash-2017-30-09.sql';

open ( my $fh, '<', $file) or die "can't open $file - $!";
      my @list = ();

      while (<$fh>)
      {
      $_ =~ s/<pre class=\\"brush:\s?(\w*)\\">/<pre class=\\"EnlighterJSRAW\\" data-enlighter-language=\\"$1\\">/g;
      push (@list, $_);
      }

close $fh;

open ($fh, '>', $file) or die "can't open $file - $!";
      print $fh @list;
close $fh;