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

my $string = 'https://somewebsite.com/';
if ($string =~ /^https/) {
    print "https success\n";
}
if ($string =~ /\/$/) {
    print "trailing slash success\n";
}