Unexpected Behavior - Variables and Regex

Select or download this

ABCXYZ123-0-0-1:/home/dir-> hostname | sed 's/-.*?//g'
ABCXYZ123

Select or download this

#!C:/Perl64/bin/perl.exe

...
}

$cli->disconnect;

Select or download this

C:\Users\ImJustAFriend\Documents\Perl\Test>CLIControlTest.pl
hostname: ABCXYZ123
...
.ext and name.ext on server in /spdata... Please investigate and start
+ application again... Exiting program.

C:\Users\ImJustAFriend\Documents\Perl\Test>

Select or download this

C:\Users\ImJustAFriend\Documents\Perl\Test>CLIControlTest.pl
hostname: ABCXYZ123
...
.ext and name.ext on server in /spdata... Please investigate and start
+ application again... Exiting program.

C:\Users\ImJustAFriend\Documents\Perl\Test>

Select Code to Download