package Thingy;

sub new {
   my ($class, $line) = @_;
   my $thingy = {}; 
   ...
   if ($line =~ m/$PATTERN/) {
      ...
   }
   bless $thingy, $class;
}
1;