jluis

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use utf8;

binmode(STDOUT, ":utf8");
binmode(STDIN,":utf8");

jluis

Keybase proof

I hereby claim:

• I am jluis on github.
• I am jluis (https://keybase.io/jluis) on keybase.
• I have a public key whose fingerprint is EA45 CEAF FC85 200E C198 88B4 0341 5507 7FCD 4CDB

To claim this, I am signing this object:

jluis

#
# Text matching function (feel free to use)
#
# returns: first match or undef
#
sub match_text {
    my ( $pattern, $content ) = @_;

    $content =~ /$pattern/p;