$str =~ s/589HC-CG26G-133578.*/589HC-CG26G-133578/;
$str =~ s/589HC-CG26G-133578\K.*//;
$str =~ s/(589HC-CG26G-133578).*/$1/;
($str) = $str =~ /(.*589HC-CG26G-133578)/;
($str) = $str =~ /.*589HC-CG26G-133578/g;
$str = substr($str, 0, index($str, "589HC-CG26G-133578") + length("589HC-CG26G-133578"));
substr($str, index($str, "589HC-CG26G-133578") + length("589HC-CG26G-133578"), -1) = "";
$str = join "", (split /(589HC-CG26G-133578)/, $str)[0, 1];