Bareword found where operator expected

After updating my cPanel recently to the release branch, I've begun receiving the following email on a daily basis.

From: Cron
Subject: /usr/local/bin/perl /usr/local/cpanel/3rdparty/quickinstall/scripts/checkupdates.pl

Bareword found where operator expected at /usr/local/cpanel/Cpanel/URI/Escape/Fast.pm line 19, near "s/([^A-Za-z0-9\-_\.~])/$escapes{$1}/gr"
​

My Google-fu has failed to find any matching results, also searching these forums turned up blank.

Looking at the offending line, nothing jumped out at me:
# light version of Cpanel::CPAN::URI::Escape::fast_uri_escape
sub uri_escape {
return defined $_[0] && $_[0] =~ tr{A-Za-z0-9_.~-}{}c ? ( $_[0] =~ s/([^A-Za-z0-9\-_\.~])/$escapes{$1}/gr ) : $_[0];
}

Any hints?