#!/usr/bin/perl

use strict;
use warnings;

my $path;

$path = "/usr/bin";
#$path = "/usr/bin foo"; # uncomment for testing

if ( $path =~ /\s/){
    print "String $path contains a space character.\n";
}else{
    print "String $path does not contain a space character.\n";
}