my $text = <