#!/usr/bin/perl
use warnings;
use strict;

my @l = ('This is long string', 'Another long one');
my @s = ('s', 'S');

format =
~~ @<<<<<<<<<<<<<<<<<<< @<
shift @l, shift @s
.
write;