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