#!/usr/bin/perl
my $s = 'Public Function SheetReMake(ByVal sheetName As String) As Worksheet \' создает новую таблицу, если такая есть, то ее удаляет'.
'Private Sub tReMake(ByVal sheetName As String) As Worksheet \' создает новую таблицу, если такая есть, то ее удаляет';
while($s =~ /((public|private)*\s*(function|sub)+\s+(\w+)\(.*?\)(.*?))/igm) {
  print "Тип: ",$2,"  F/S:",$3," Имя:",$4," Весь текст:",$&,"\n";
}