Summary of my perl5 (revision 5 version 32 subversion 1) configuration:

  Platform:
    osname=cygwin
    osvers=3.2.0(0.34053)
    archname=x86_64-cygwin-threads-multi
    uname='cygwin_nt-10.0 cygwinpro 3.2.0(0.34053) 2021-03-29 08:42 x86_64 cygwin '

##</code><code>##

#!/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)