#!/usr/bin/perl
use feature 'say';
use strict;
use warnings;
#use re 'debug'; 

my $str = "abcde\n		fghij<FooBar>";
say $str =~ /(.*)<FooBar>/s;