#!/usr/bin/perl
my $ip = "csteppfw pts/0        2022-06-27 15:53 (192.168.5.100)";
$ip =~ s/.*?(\d+\.\d+\.\d+\.\d+).*?/\1/;
## $line =~ s/.*$ip//;
print "$ip\n";

--------------------

$ bin/test
192.168.5.100)