perl -MO=Deparse some_script.pl | 
  diff - some_script.pl |
  perl -ne 'print if /^> / and /[^\$]#/'