Yet Another CPAN Grep

Text-LooksLike ( B/BK/BKB/Text-LooksLike-0.00_01.tar.gz, BKB, 2021; MetaCPAN )

Text-LooksLike/lib/Text/LooksLike.pm ( view source; MetaCPAN )


buy\s+it\s+now
!xi;

our $email = qr!
\@[a-z]+\.[a-z]+
!xi;

our $file = qr!
^\s*
\S+
\.
(xml|js|json)
\s*$
!x;

sub looks_like
{
    my ($text) = @_;
    if ($text =~ $database_command) {
	return "d