#!/usr/bin/perl -piw

use strict;

s/^\s*(sub\s+\w+)\s*\(\$+\)/$1/g;