Try this and give it a bit of consideration and you’ll have your answer, I think–

my $ip = "csteppfw pts/0        2022-06-27 15:53 (192.168.5.100)";
my ( $match ) = $ip =~ /.*?(\d+\.\d+\.\d+\.\d+).*?/;
print "$match\n";
[download]