Generate Perl code from a regex

#!/usr/bin/perl
use strict;
use warnings;

my $input = 'Reach alice@example.com or bob@test.org.';
my $re = qr/\\b\\w+@\\w+\\.\\w+\\b/;

my $is_match = ($input =~ $re) ? 1 : 0;

my ($first) = $input =~ /$re/;
my @all     = $input =~ /$re/g;

(my $replaced = $input) =~ s/\\b\\w+@\\w+\\.\\w+\\b/[email]/g;

my @parts = split /$re/, $input;

print "is_match=$is_match\n";
print "first=", (defined $first ? $first : "undef"), "\n";
print "all=[", join(", ", @all), "]\n";
print "replaced=$replaced\n";
print "parts=[", join(", ", @parts), "]\n";