#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
my $str1 = "abc";
my $str2 = "a b c";
my $re = qq/\s/;
print $re;
#if ($str1 =~ m/$re/) { print "\$str1 matched\n" }
#if ($str2 =~ m/$re/) { print "\$str2 matched\n" }