#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;

my $String = "` #00 LOGGED IN NORTEL1 12:02   3/11/2003 \r\n\r\012>logo\r\r\012TTY #00 LOGGED OUT NORTEL1 12:02   3/11/2003 \r\012SESSION DURATION:  00:00 \r\012\r\012>";
my  @matchlist = ($String =~ m/(.*LOGGED OUT.*>)/m);
print @matchlist;