use warnings;
use strict;

while(<ARGV>){
   chomp;
   print $1,$/ if/^sub\s+?(.+?){/; ## print subroutine name
   if(/^sub\s+?/.. /^}/){          
      print $_,$/;
    }
}